home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / game prog-3 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  437b  |  16 lines
  1. 10 POKE 56334, PEEK(56334) AND 254
  2. 15 POKE 1, PEEK(1) AND 251
  3. 20 FOR X=12288 TO 12799: POKE X, PEEK(X+40960): NEXT X
  4. 25 POKE 1, PEEK(1) OR 4
  5. 30 POKE 56334, PEEK(56334) OR 1
  6. 35 POKE 53272, (PEEK(53272) AND 240) OR 12
  7. 40 FOR X1=1 TO 2:READ A$
  8. 45 Y= 12288+(ASC(A$)-64)*8
  9. 50 FOR X=Y TO Y+7: READ A: POKE X,A: NEXT X,X1
  10. 55 POKE53270, PEEK(53270) OR 16
  11. 60 PRINT CHR$(147); "AB"
  12. 65 POKE 55296,12: POKE 55297,12
  13. 70 POKE 53282,1:POKE 53283,3
  14. 75 DATA "A", 0, 224, 248, 248, 170, 85, 170, 0
  15. 80 DATA "B", 0, 0, 0, 0, 168, 85, 168, 0
  16.